home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / fmodla13.zip / NUMBERCO.DEF < prev    next >
Text File  |  1992-01-29  |  2KB  |  54 lines
  1. DEFINITION MODULE NumberConversion;
  2.  
  3. (* (C) Copyright 1987 Fitted Software Tools. All rights reserved. *)
  4.  
  5. (*
  6.     procedures to convert integer/cardinal/longint/longcard numbers
  7.     to string format and back.
  8. *)
  9.  
  10. CONST
  11.     MaxBase = 16;
  12.  
  13. TYPE
  14.     BASE    = [2..MaxBase];
  15.  
  16.  
  17. PROCEDURE StringToCard( str :ARRAY OF CHAR;
  18.                         VAR num :CARDINAL; VAR done :BOOLEAN );
  19.  
  20. PROCEDURE StringToInt(  str :ARRAY OF CHAR;
  21.                         VAR num :INTEGER; VAR done :BOOLEAN );
  22.  
  23. PROCEDURE StringToNum(  str :ARRAY OF CHAR; base :BASE;
  24.                         VAR num :CARDINAL; VAR done :BOOLEAN );
  25.  
  26. PROCEDURE CardToString( num :CARDINAL;
  27.                         VAR str :ARRAY OF CHAR; width :CARDINAL );
  28.  
  29. PROCEDURE IntToString(  num :INTEGER;
  30.                         VAR str :ARRAY OF CHAR; width :CARDINAL );
  31.  
  32. PROCEDURE NumToString( num :CARDINAL; base :BASE;
  33.                        VAR str :ARRAY OF CHAR; width :CARDINAL );
  34.  
  35. PROCEDURE StringToLongCard( str :ARRAY OF CHAR;
  36.                             VAR num :LONGCARD; VAR done :BOOLEAN );
  37.  
  38. PROCEDURE StringToLongInt(  str :ARRAY OF CHAR;
  39.                             VAR num :LONGINT; VAR done :BOOLEAN );
  40.  
  41. PROCEDURE StringToLongNum(  str :ARRAY OF CHAR; base :BASE;
  42.                             VAR num :LONGCARD; VAR done :BOOLEAN );
  43.  
  44. PROCEDURE LongCardToString( num :LONGCARD;
  45.                             VAR str :ARRAY OF CHAR; width :CARDINAL );
  46.  
  47. PROCEDURE LongIntToString(  num :LONGINT;
  48.                             VAR str :ARRAY OF CHAR; width :CARDINAL );
  49.  
  50. PROCEDURE LongNumToString(  num :LONGCARD; base :BASE;
  51.                             VAR str :ARRAY OF CHAR; width :CARDINAL );
  52.  
  53.  
  54. END NumberConversion.